program Project
{$APPTYPE CONSOLE}
uses
    SysUnits;
var a:integer;
begin
    readln(a);
    if a < 0 then
        write("a是负数")
    else if a > 0 then 
        write("a是正数")
    else
        write("a是0");
    
    readln;

end.


program Project
{$APPTYPE CONSOLE}

{$R *.res}
uses
    System.SysUnits;

var i,sum:integer;

begin
    sum := 0;
    for i:= 1 to 100 do
        if (i mod 3 <> 0 ) and (i mod 2 == 1) and (i != 5) then
            sum = sum + i;
    writeln(sum);    
    readln;

end.


program Project
{$APPTYPE CONSOLE}

{$R *.res}
uses
    System.SysUnits;

var n,i,product:integer;

begin
    readln(n);
    product := 1;
    for i := 1 to n do
        product := product * i;
    writeln(product);

    readln;

end.